home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 only / Prompt 2.5.cpt / Prompt 2.5 (US) / card_3055.txt < prev    next >
Text File  |  1991-01-29  |  4KB  |  155 lines
  1. -- card: 3055 from stack: in.5 (US)
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 02
  24. -- high flags: 4000
  25. -- rect: left=69 top=278 right=296 bottom=360
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Message
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 02
  38. -- high flags: 4000
  39. -- rect: left=448 top=262 right=280 bottom=484
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Position
  48.  
  49.  
  50. -- part 5 (button)
  51. -- low flags: 00
  52. -- high flags: A003
  53. -- rect: left=184 top=304 right=334 bottom=353
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Prompt
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set cursor to 4
  65.   if cd fld "Position" is empty
  66.   then Prompt 1,cd fld "Message"
  67. else if cd fld "Width" is empty
  68. then Prompt 1,cd fld "Message",cd fld "Position"
  69. else Prompt 1,cd fld "Message",cd fld "Position",cd fld "Width"
  70. wait 1 second
  71. repeat with i=1 to 10
  72.   Prompt 2,"Test" && i
  73.   wait 10 ticks
  74. end repeat
  75. Prompt 1,"This is another message"
  76. wait 1 second
  77. Prompt 3
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 8 (field)
  83. -- low flags: 02
  84. -- high flags: 4000
  85. -- rect: left=448 top=278 right=296 bottom=484
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Width
  94.  
  95.  
  96. -- part contents for card part 1
  97. ----- text -----
  98.  
  99.                                                   Prompt 2.5
  100.                                                   ----------
  101.  
  102.                                            ¬© Fr√©d√©ric RINALDI
  103.  
  104. DESCRIPTION
  105.  
  106.   Prompt is a XCMD displaying an information dialog during the execution of a script. The dialog's width is set accordingly to the string width.
  107.  
  108.    WARNING : Prompt doen't work properly with HC 2.0. Rather use 
  109.                     Promptoid XCMD.
  110.  
  111.  
  112.  
  113. SYNTAX
  114.  
  115. Prompt 1 [, <message> [, <vertical position> [, <width> ] ] ]
  116.   Brings the dialog to screen, displaying the message. If message is omitted or empty, the dialog's width will be set by default to 300 points. If no vertical position is passed, the dialog will be centered vertically on the card. Dialog is resized when Prompt 1 is called twice.
  117.  
  118. Prompt 2 , <message>
  119.   Sets a new message in the current dialog.
  120.  
  121. Prompt 3
  122.   Disposes the current dialog and clears it from the screen.
  123.  
  124.  
  125. USING
  126.  
  127.    If no error occured, the Result will be empty. Otherwise, it can contain :
  128.     "Error : Bad Mode Parameter"
  129.     "Error : Bad coordinate"
  130.     "Error : Bad Width"
  131.     "Error : Missing Parameter(s)"
  132.     "Error : Prompt doen't work properly with HC 2.0"
  133.  
  134.  
  135. HISTORY
  136. -------
  137. 2.5
  138. ‚Ä¢ Completely rewritten code
  139. ‚Ä¢ Better SuperCard compatibility
  140. ‚Ä¢ Added HC 2.0 warning
  141.  
  142. 2.4
  143. ‚Ä¢ Added automatice resizing when Prompt 1 is called twice.
  144. --------------------------------------------------------------------
  145.  
  146. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  147. Any commercial use must be licensed and aknowledged by the author.
  148.  
  149.                                   ¬© F. Rinaldi - 1989,1990
  150.  
  151. AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111
  152.  
  153. -- part contents for card part 3
  154. ----- text -----
  155. This a message test